#!/usr/bin/perl
#saveprinter.cgi

require './printer-lib.pl';
&init_config();
&ReadParse();
#&header($text{'index_title'}, "", "index", 0, 1,undef,undef);
if ($in{'cancle'} eq "yes"){
	if ($in{'smbname'} eq ''){
		&redirect("index.cgi");
	}else{
		&del_smblp($in{'smbname'});	
	}
}else{
	if ($in{'sharename'} eq ''){
		&error($text{'noname'});
	}elsif($in{'sharename'} eq 'global'){
		&error($text{'forbiddenname'});
	}elsif($in{'sharename'} eq 'home'){
		&error($text{'forbiddenname'});
	}elsif($in{'sharename'} eq 'printer'){
		&error($text{'forbiddenname'});
	}
	$result=&check_smbname($in{'sharename'});
	if ($result eq "same"){
		if ($in{'smbname'} eq ''){
			&error($text{'samename'});
		}
	}elsif ($result eq "wrong"){
		&error($text{'wrongname'});
	}	
	if ($in{'smbname'} eq ''){		
		&set_newsmblp($in{'sharename'},$in{'printer'},$in{'public'},$in{localusers},$in{localadmins});
	}else{
		&save_smblp($in{'smbname'},$in{'sharename'},$in{'public'},$in{localusers},$in{localadmins});	
	}
}
#&footer("/",$text{'index'});
&redirect("index.cgi");
1;